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++ 
; Facility: RMS 
; Abstract: 


This module communicates with the i 


e Access Listener (FAL) at the 
remote node to rename the specif i 


Fil 
: ed file 

; Environment: VAX/VMS, executive mode 

: Author: James A. Krycka, Creation Date: 01-JUN-1981 
; Modified By: 


; V03-005 JAKO140 JA Krycka 09-APR-1984 | 
: Properly restore registers on exit from routine. 
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V03-004 JAKO138 28-MAR-1984 
Call modified NTSEXCH “tit routine with a parameter. | 
v03-003 KRM0095 arl M 01-Apr-1983 
Modify to inaeet *DAP “) i: flavor of rename message exchange. | 
v03-002 KRM0080 Karl Malik 02-Feb-1983 
$ Fix bug in RECV_CMP. 
0 v03-001 KRMO0076 Karl Malik | 23-Nov-1982 | 
44 Support network rename operation based on DAP V6.0 rules. 
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§ 69 -SBTTL DECLARATIONS | 
62 ; 

0 8 ; Include Files: 

000 eS 

$0 06 SDAPPLGDEF ; Define DAP prologue symbols 

it 6 SDAPHDRDEF ; Define DAP message header 

B86 68 SDAPCNF DEF ; Define DAP Configuration message 

000 69 SDAPACCDEF ; Define DAP access message symbois 

0006 70 SDAPNAMDEF ; Define DAP Name message symbols 

tt 71 F ABDEF ; Define File Access Block symbols 

00 i SIFBDEF : Define Internal Fab block Sraceee 

0000 7 SFWADEF : Define File Work Area symbols 

0000 74 SNWADEF ; Define Network Work Area symbols 

0000 t? 3 

0000 a6 3; Macros: 

0000 7? 3 

000 78 ; None 

000 79 ; 

0000 80 ; Equated Symbols: 

0000 81 ; 

0000 Hf 

0000 8 ASSUME DAPS$Q_DCODE_FLG EQ 0 

0000 84 

0000 wo 3 

0000 86 ; Own Storage: 

0000 87 ;: 

0000 He : None 


1 5 
NETWORK RENAME 16-SEP-1984 00:06:1 AX/VMS v04-00 
NTSRENAME = RENAME FILE Beep =19 4 18:99:08 ERMS. SRCINTORENAME .MAR; 1 


-SBTTL NTSRENAME = RENAME FILE 


sane 


Ooo 
oOo 


SOOOOCOOCOCOSOSOOSOSOOSOSOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOOOOOSOOOOOSOoOO 
FSPRAROOCOOCOCOOCOCCOCOSSOSSSO DOCS SC SOC OSOOOOOOOOOOOOoOO 


ge* 
; NTSRENAME - engages in a DAP dialogue with the remote FAL to rename the 
specified file. 


Calling Sequence: 
BSBW NTSRENAME 
Input Parameters: 
R8 Old FAB address 
IFAB address 
New FWA address 
Impure Area address 
P) Old FWA address 
P) New FAB address 
SP) Old FAB address 
Implicit Inputs: 
FWASQ_NODE1 
Output Parameters: 
RO-R7 Destroyed 
Implicit Outputs: 
None 
Completion Codes: 
Standard RMS completion codes 


Side Effects: 
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None 
0 NTSRENAME: : ; Entry point 
0 STSTPT NTRENAME : 
57 3C a9 00 MOVL IFBSL_NWA_PTR(R9) ,R7 ; Get address of NWA (and DAP) 
| 
OOA 5% 
OA ; Exchange DAP Configuration messages with FAL and determine DAP buffer size. | 
OOA 3; Also, check to make sure that partner supports both the rename function and 
OOA : is implemented to the DAP V7.0 specification (as the message exchange rules 
BRA : for rename were changed from DAP V6.0 to V7.0) 
OOA : 
50. = 03 ge 30a MOVL #DAPSK_RENAME ,RO ; Denote type of file access 
FFFO’ 30 000d BSBW NTSEXCA_CNF ; Exchange Configuration messages 
03 50 58 HH BLBS RO,10$ ; Branch on success 
OOF 5 1 001 BRW EXx{T1 ; Branch on failure 
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NTSRENAME = RENAME FILE ety 7 90:98: h3 RMS ..SRCINTORENAME .MAR; 1 ’ 
E0 1 148 108: BBS #DAPSV_RENAME,= ; Branch if partner supports rename 
18 125 DAP$Q_SYSCAP(R7), 30$ 3 operation’ ve 
2 1B 150 20S: BSBW NTSRMT_ACCFUNC ; Declare RMS$_SUPPORT error 
1 i; 151 BRW x ; Branch and exit with RMS code in RO 
E1 1 ¢ 30$: BBC #DAP$V_GEQ_V70,(R7),20$ ; Branch_if partner does not support 
3 : 7 ; DAP V7.0 message exchange rules 
0 155 53+ 
0 128 3; Next build a request mask (NWASW_DISPLAY) that will be used in the Access 
0 2 157 ; message to request that optional DAP messages be returned by FAL. Since only 
0 158 ; one display field can be sent (in the Access message), use the old NAM bloc 
. 2 159 ; to determine this. 
160 ;- 
00 2 161 
00 196 BUILD_MASK: : Build NWASW_DISPLAY 
52. 04 0025 16 CLRL Re : Initialize request mask 
FFD6" 30 0027 164 BSBW NT$SSCAN_NAMBLK ; Scan user Name Block and check FAL's 
8 A 165 ; capabilities to update request mask 
03 50 fs 02A 166 BLBS RO,10$ ; Branch on success 
00D8 1 002D 167 BRW EXIT1 :; Branch on failure 
0000 ¢7 +52 80 Boe 198 108: MOVW R2,NWASW_DISPLAY(R7) ; Save request mask 
0035 170 ;+ 
Oaee 17) ; Just check the new NAM block for validity (no request mask is generated’. 
0035 198 
57 08 ag DO 0035 174 MOVL 8(SP),R7 ; Get new FAB address 
57 28 A DO 0039 175 MOVL FABSL_NAM(R7) ,R7 ; Get new NAM2 address 
FFCO*’ 30 0030 176 BSBW RMSCHRNAM 3; Check NAM2 block for validity 
03 50 8 Bare 177 BLBS RO,20$ ; Branch on success 
00c5 1 004 178 BRW exit 3; Branch on failure 
57 3¢€ a9 00 Opee 1? 20$: MOVL IFBSL_NWA_PTR(R9) ,R7 3; Restore NWA/DAP address 
004A 13] 3 
004A 1 ; ; Build and send DAP Access message to partner. 
004A 183 se 
004A Is 
004A 185 SEND_ACC: : (required message) 
5A DD OQO04A 196 PUSHL R10 ; Save the new FWA address 
56 OC AE 00 O04C 18 MOVL dee et) 06 ; Get new FAB address 
SA 08 a D0 0050 188 MOVL 8(SP),R1 3; Get old FWA address 
50 0 8 0054 189 MOVL #DAPSK_ACC_MSG,RO ; Get message type value 
A 0 0057 190 BSBW NT$BUICD_HE 3 Construct message header 
5 8 90 fo 191 MOVB #DAPSK_REN E,(R5) ; Store ACCFUNC field 
5 01 90 005d 19¢ MOVB § #DAPSMNONFATAL,(R5)+  ; Store ACCOPT field , 
cr" Hg 660 19 SBW NTSGET FILE ; Store filespec as a counted string 
51 0000 C ¢ 06 194 MOVZWL NWASW_BISPLAY(R7),R1 3; Get request mask 
os 6 068 195 EQL : Branch if nothing set 
85 4 Q06A 138 CLRW (R5)+ 3; Store dummy FAC and SHR fields 
FF91* 30 6c 19 BSBW NTSCVT_BN4 EXT ; Store DISPLAY as an extensible field 
FFBE* 4 oF 198 10$: BSBW 386s: NTS$BUICD_TAIL : Finish building message 
eres" ¢ 19 BSBW NTSTRANSAIT ; Send Access message tc FAL 
03 5 gS 7 0 BLBS RO, SEND_NEWNAM ; Branch on success 
0089 1 78 1 BRW Ex{T :; Branch on failure 
BM. 
$7 bf : Build and send DAP Name message to partner (containing the NEW filespec). 
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Bs 
78 SEND_NEWNAM: ; (required message) 
SA dO 78 3 MOVL sh R10 ; Get address of new filespec FWA 
58 OC AE 00 007 MOVL — 12(SP) RB ; Get address of new filespec FAB | 
i SSETBIT #NWASV_LAST_MSG,(R7) ; Declare this last message to block 
50 Of 1 MOVL #DAPSK-NAM_ASG,RO ; Get message type value | 
FF74" 1 BSBW NTS yicd HEAD : Construct message header 
85 01 08C 1 MOVB #DAPSM_FILSPEC,(R5)+ 3; Store NAMETYPE field 
FF6E’ O8F 14 BSBW NTSGET-FILESPEC ; Store filespec as a counted string 
FF6B' 8 0 15 BSBW NTS$BUICD TAIL ; Finish building message | 
Pre . 8 18 BSBW NTSTRANSAIT : Send Name message to FAL 
69 E9 9 1 BLBC RO,EXIT ; Branch on failure 
ae 
943 y ; Receive DAP Name message (containing the OLD filespec) from partner. 
0098 - 
0098 RECV_OLDNAM: ; (required message) 
00D0 ¢c7 85 0096 4 TSTW NWASW_DISPLAY(R7) ; Branch if Name message was not 
13 O009F 5 BEQL Vv : requested 
00A1 6 SSETBIT #DAPSK_NAM_MSG,DAPSL_MSG_MASK(R7) 
00A6 3 Expect resgonee of Name message 
58 10 AE 00 OQO0A6 8 MOVL 16(SP) ,R8 ; Get old FAB address 
5A 08 AE 00 OQOAA 9 MOVL 8(SP),R10 ; Get old FWA address 
FFGF* 30 OOAE 0 BSBW NTSRECEIVE ; Get reply from FAL 
50 50 9 0081 31 BLBC RO,EXIT ; Branch on failure . 
FF49" 30 00B4 3 BSBW NT$DECODE_NAM ; Process resultant name string 
FF46" 30 0087 23 BSBW =a RMSFILLNAM ; Fill in NAM block (if any) 
47 50 €9 QOBA 34 BLBC RO,EXIT 3; Branch on failure 
008d 536 :+ 
Beep 7 ; Receive DAP Acknowledge message from partner. 
00BD 239 ° 
00BD 40 RECV_ACK1: ; (required message) 
57 3C Ad 00 00BD 41 MOVL IFBSL_NWA_PTR(R9) ,R7 ; Restore NWA/DAP address 
00C1 4¢ SSETBIT #DAPSR_ACR_MSG,DAPSL_MSG_MASK(R7) 
00C6 4 3; Expect response of Acknowledge message 
FF37° 30 00C6 44 BSBW NTSRECEIVE : Get reply from FAL 
38 50 €9 O00C9 45 BLBC RO,EXIT ; Branch on failure 
DOCe | 542 + 
opce $8 3; Receive DAP Name message (containing the NEW filespec) from partner. 
3° 
0OCC 50 
pace 51 RECV_NEWNAM: : (required message) 
00D0 C7 8B Occ 5 TSTW NWASW_DISPLAY(R7) ; Branch if Name message was not 
2A OD 5 BEQL 3 requested 
0D 54 SSETBIT #DAPSK_NAM_MSG,DAPS$L_MSG_MASK(R7) | 
OD 55 ; Expect response of Name message 
58 OC AE DO 00D7 2$ MOVL 12(SP) ,R8 ; Get new FAB address 
SA 6€ 008 2 MOVL (SP) ,R10 ; Get new FWA address 
FFIF* ODE 3 BSBW = NTSRECEIVE : Get reply from FAL 
20 50 E1 5 BLBC X ; Branch on failure P 
FFI9* 30 E4 60 BSBW NT$DECODE_NAM ; Process resultant name string 
FF16° 0 £7 61 BSBW RMSF ILLNAR 3; Fill im NAM block (if any) 
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17 50 €9 OOEA $6 BLBC RO,EXIT ; Branch on failure 
OED 8 ;+ 
ED 265 : Receive DAP Acknowledge from partner. | 
BS Bee 
ED 68 RECV_ACK2: ; (required message) 
57 3C Ad 00 ODED 8 MOVL res, NWA_PTR(RY) ,R7 3; Restore NWA/DAP address 
OF1 0 SSETBIT #DAPSR_ACR_MSG,DAPSL_MSG_MASK(R7) 
OF6 71 3; Expect response of Acknowledge message 
FFO7* 30 8 i BSBW NTSRECEIVE 3; Get reply from FAL 
08 5 —9 oF 7 BLBC RO, EXIT ; Branch on failure 
ea | 
OOF 6 > Receive DAP Access Complete message from partner. | 
OFC 278 ° 
OOFC 79 RECV_CMP: 3 Srequired message) | 
OOFC 280 SSETBIT #DAPSK_CMP_MSG,DAPS$L_MSG_MASK(R7) 
0101 81 3; Expect response of Access Complete msg 
FEFC’ 30 HH Ht BSBW NTSRECEIVE 3; Get reply from FAL 
58 10 AE DO 0104 284 EXIT: MOVL 16(SP),R8 ; Restore old FAB (as on entry) 
5A BEDO 0108 285 POPL R10 ; Restore new FWA (as on entry) | 
05 pie $39 EXIT1: RSB ; Exit with RMS code in RO 
010C¢ $88 - END ; End of module 
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$$.PSECT_EP = 00000000 DAP$Q_PASSWORD 05 
SSRMSTEST = QOOO00IA DAP$Q-SYSCAP ¢ 
$SSRMS_PBUGCHK = 19 DAPSO_SYSPEC 3 
$SSRMS_TBUGCHK = DAP$V_GEQ_v70 = $8 
SSRMS_UMODE = 00004 DAPSV_RENAME z 
BUILD-MASK SR 01 DAP$W_BUF SIZ 8 40 
DAP$B_ACCFUNC 40 DAP$W_DISPLAY1 4C 
DAP$B_ACCOPT 0000041 DAPSW-PARTNER 0000006 
DAPSB_BITCNT aaa DAP$W_VERSION 38 o 
DAPSB_DCODE_F ID 00000019 EXIT : 104 R 01 
DAPSB_DCODE_MAC 00000018 EXIT1 000 198 i 01 
DAPS$B_DCODE-MSG 90008 1A F ABSL_NAM 80800 e 
DAPSB_DECVER 000047 1FBSL-NWA_PTR = 003C 
DAP$B_ECONUM 00000045 NTSBUTLD_REA aeeneree = X 01 
DAP$B_FAC Ht 9d NTSBUILD- TAIL aeeeeeee = X 01 
DAP$B_FILESYS 000004 NTSCVT_BR4 EXT aeneeeee = X 01 
DAP SS FLAGS 00000031 NTSDECODE_RAM eeeeeeee =X 01 
DAPS$B_LEN256 00000034 NTSEXCH_ CRE aeeeeeee = X 01 
DAPSB_LENGTH 00000033 NTSGET FILESPEC teenenee = X 01 
P$B_NAME TYPE 0000004 NTSRECEILV eeeeeeee = X 01 
DAPS$B_OSTYPE 0000004 NTSRENAME 00000000 RG 01 
DAP$B_SHR 0000004 NTSRMT_ACCFUNC eeeeeeee XX 01 
DAP$B_STREAMID ae ts NTSSCAR_NAMBLK eeeeeeee = = X 01 
DAP$B_ TYPE 0000003 NTSTRANSMIT aeeneeee = X 01 
DAP$B_US te NWASB_ALLXABCNT 0000011¢ 
DAPSB_USRVER 0000004 NWASB_DAP_RAC 000000C9 
DAPS$B_VE 00000044 WASB_FILESYS 000000C5 
DAPS$B_X_FIELD 00000024 NWASB_KEYXABCNT 0000011D 
DAPSC_BC aie NWASB_NETSTRSIZ 0000016F 
DAPSK_ACC_MSG = 0000000 NWASB_NODBUF $12 00000168 
DAPSK_ACK_MSG = 444i 6435 NWASB_ORG 000000C6 
DAP$K_B 000000C NWASB_OSTYPE 000000C4 
DAPS$K_CMP_MSG = 00000007 NWASB_RFM 000000C7 
DAPSK_NAM_MSG = 4544 4 NWASB_RMS_RAC 000000C8 
DAPSK_RENAME = 00000003 NWASC_BLN 00000800 
APSL_CMWA 00000030 NWASK_BLN 00000800 
DAPSL_CRC_RSLT 00000020 NWASL_ALLXABADR 00000100 
DAPSL_DCOBE _STS 00000018 NWASL_DATXABADR 00000104 
DAPS$L_MSG_MAS 0000001C NWASL_DEV 000000C0 
DAPSL_SSPOA 00000080 NWASL_FHCXABADR 00000108 
DAPSL_TEMP 00000090 NWASL_KEYXABADR 0000010C 
DAPSM_BITCN = 0000000 NWASL_MSG_MASK 00000004 
DAPSM_DF TSPEC = 0000001 NWASL_PRORABADR 00000110 
DAPSM_DSP_3NAM s 4 $ NWASL_RDTXABADR i apt 
DAPSM_F iLSPEC = 000 1 NWASL SAVE _F 8 \<8 
DAPSM_GET = 3808 0 NWASL~ SUMXABADR 0 oN 
DAPSM_GO = 0000001 NWASL_THREAD OOOOOF C 
DAPSM_MS s 0008 1 NWASL_XLTATTR Ba08 8 
DAPSM_NONF ATAL = 0000 NWASL_XLTBUFFLG 4 
DAPSM_ SEGMENT = 0000004 NWASL_XLTCNT 0 
DAPSM_TMP1$ = $ 2 NWASL—XLTMAXINDX ° 4 
DAPSM_TMP2$ = f NWASL-XLTSIZ 0 
DAP$Q_DCODE_FLG NWASQ— 44 
DAP$Q_F ILESPEC 44 NWAS$Q_BIGBUF 7 
DAP$Q_MSG_BUF 1 08 NWASQ-BLD F 
DAP$Q_MSG- BUF 2 000001 NWASQ"FLG ; 9 
DAP$Q_NAME SPEC 0000044 NWA$Q" INODE 025C 
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PSECT No. Attributes 
( 0.) 00 ¢ OO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD WOuaT NOVEC BYTE 
( $63.3 " @~ se. PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
( 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR' EXE RD URT NOVEC BYTE 
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; Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 


Initialization 9 g: 8:9 
Command processing 1 $ :00: 
Pass 1 3 0:00:1 
Symbol table sort 0 0:00:01 
Pass 2 71 8: :01 
Symbol table output 19 :00:00 
Psect synopsis output 0:00:00 
Cross-reference output $48 ? 
Assembler run totals 55 00:00:1 


The working set_limit was 1350 pages. 
57842 bytes (113 pages) of virtual memory were used to buffer the intermediate code. 
There were 60 pages of symbol table space allocated to hold 1096 non-local and 12 local symbols. 
288 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

pages of virtual memory were used to define 20 macros. 


+ + 
! Macro Library statistics : 
Geer er eawwenn serene ee ew nse ane 


Macro Library name Macros defined 
-$255$DUA28: CRMS .OBJJRMS.MLB; 1 12 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 16 


1303 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTORENAME/OBJ=OBJ$:NTORENAME MSRC$:NTORENAME/UPDATE=(ENHS$:NTORENAME ) +L1B$:RMS/LIB 
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